home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 212 / 212.d81 / b.ls fonts (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 lines
  1. 5 dv=peek(186):ifdv<8thenpoke186,8:run
  2. 10 ifpeek(56)<>56thenpoke56,56:poke55,0:run
  3. 20 forx=1to10:readf$(x):next
  4. 21 data"f.ls cset","f.chubottom"
  5. 22 data"f.upnright","f.thibodaux"
  6. 23 data"f.steel city","f.shreveport"
  7. 24 data"f.oil city","f.haughton"
  8. 25 data"f.alexandria","f.sea to sea
  9. 29 [153]"load":[151]53265,27
  10. 30 [129]y[178]0[164]7:[129]x[178]0[164]31:z[178]y[172]32[170]x:[151]53280,y
  11. 35 [151]1064[170]y[172]40[170]4[170]x,z:[130]:[130]
  12. 39 [151]214,11:[153]:
  13. 40 [129]x[178]1[164]5
  14. 41 [153][163]2)x[171]1"cmd."f$(x);[163]22)x[170]4"cmd."f$(x[170]5)
  15. 42 [130]:[153]
  16. 43 [153][163]07)"                           "
  17. 44 [153][163]07)"  f1 - (NULL)ext lenolor          "
  18. 45 [153][163]07)"  asc3 - peekackground lenolor    "
  19. 46 [153][163]07)"  asc5 - (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)  "
  20. 47 [153][163]07)"  asc7 - valxit to peekatn(NULL)right$len       "
  21. 48 [153][163]07)"                           "
  22. 49 x[178]1
  23. 50 [158]57812f$(x),dv,0:[151]780,0:[151]781,0:[151]782,56:[158]65493:[151]53272,31
  24. 55 [151]214,9:[153]:[153]"                                      "
  25. 60 [151]214,9:[153]:[153][163]20[171][195](f$(x))[173]2)f$(x)
  26. 100 [151]53265,27
  27. 110 [151]198,0:[146]198,1:[161]z$
  28. 120 [139]z$[177][178]"0"[175]z$[179][178]"9"[167]x[178][197](z$)[170]1:[137]50
  29. 125 z[178][198](z$):[139]z[178]133[167][141]200:[137]110
  30. 126 [139]z[178]134[167][151]53280,([194](53280)[175]15)[170]1:[151]53281,[194](53280):[137]110
  31. 127 [139]z[178]135[167][137]40000
  32. 128 [139]z[178]136[167]400
  33. 200 c[178]([194](646)[170]1)[175]15:[151]646,c
  34. 210 [129]x[178]0[164]31:[129]y[178]7[164]0[169][171]1
  35. 220 [151]55296[170]40[170]y[172]40[170]4[170]x,c:[130]:[130]
  36. 225 [142]
  37. 400 [151]56,160:[151]53281,6:[151]53280,14:[151]646,14:[153]"load":[151]53272,20:[128]
  38. 9999 [128]
  39. 10000 d[178][194](186):n$[178]"b.ls fonts":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  40. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  41. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  42. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  43. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  44. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  45. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  46. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  47. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  48. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  49. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  50.